#!/usr/bin/perl

use IO::Socket;

my $host = "127.0.0.1";
my $port = 524;

my $socket = IO::Socket::INET->new("$host:$port") or die "create socket error $@";
my $msg_out = "1234567890";
print $socket $msg_out;
print "now send over, go to sleep\n";

while (1)
{
	    sleep(1);
}
